with Ada.Text_IO, Ada.Integer_Text_IO;use Ada.Text_IO,Ada.Integer_Text_IO;
with Ada.Exceptions;use Ada.Exceptions;

with telFixe; use telFixe;

procedure Main is
	
	-- Nombre total de telephones
	nbFixes : Integer := 5;
	pragma Export(C, nbFixes, "nbFixes");

begin
	-- Attribution de numeros aux telephones
	for i in 1..nbFixes loop
		tels(i).attribuerNumero(i);
		abonnerFixe(i);
	end loop;

	-- Tentative d'appel sur un telephone avec repondeur enclenché
	tels(3).activerRepondeur;
	tels(4).demanderCom(3);
	tels(3).desactiverRepondeur;

	-- 2 communications en parallèle
	tels(1).demanderCom(2);
	tels(3).demanderCom(4);
	
end Main;